home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / N-New Submissions / (n)n2.d64 / brake (.txt) next >
Commodore BASIC  |  2007-02-24  |  5KB  |  185 lines
  1. 1 REM **** REACTION TESTER *****
  2. 2 REM ****** RICK ANDING *******
  3. 3 REM **** ATLANTA, GEORGIA ****
  4. 4 REM            1987
  5. 5 REM
  6. 6 REM  MAY BE COPIED, BUT NOT RESOLD                  FOR PROFIT
  7. 7 REM
  8. 8 REM  ALTERATIONS OR OMISSIONS OK,            EXCEPT TO THE AUTHORS LINE.
  9. 10 GOSUB 9000
  10. 20 POKE 53280,6:POKE 53281,6:POKE 646,3
  11. 30 PRINT"[147]":FOR X=1 TO 1000:NEXT
  12. 40 PRINT:PRINT"             REACTION TESTER
  13. 50 [153]:[153]"THIS PROGRAM WILL TEST YOUR ABILITY TO
  14. 60 PRINT"REACT TO A STIMULUS THAT WILL APPEAR ON
  15. 70 [153]"THE SCREEN AT VARIOUS TIMES.  YOU WILL
  16. 80 PRINT"BE TIMED FROM WHEN THE STIMULUS FIRST
  17. 90 [153]"APPEARS, UNTIL YOU PRESS THE SPACE BAR.
  18. 100 PRINT:PRINT"YOU WILL BE DRIVING A CAR, AND A YELLOW
  19. 110 [153]"FIGURE WILL APPEAR IN YOUR WINSHIELD
  20. 120 PRINT"VIEW AT A RANDOM TIME BETWEEN 3 AND 20
  21. 130 [153]"SECONDS.
  22. 140 PRINT:PRINT"TO BE A FAIR TEST, DON'T LET YOUR HANDS
  23. 150 [153]"HOVER OVER THE SPACE BAR.  KEEP THEM IN
  24. 160 PRINT"YOUR LAP SO YOU DONT 'RIDE THE BRAKE'.
  25. 170 [153]:[153]"A TIMER AT THE BOTTOM OF THE SCREEN
  26. 180 PRINT"WILL GIVE YOUR REACTION TIME IN .001
  27. 185 [153]"SECOND INCREMENTS AFTER EACH ATTEMPT.
  28. 190 PRINT:PRINT"WHEN YOU'RE READY, PRESS THE RETURN KEY
  29. 195 [161] A$:[139]A$[178]"" [137] 195
  30. 198 [139] A$[179][177][199](13) [137] 195
  31. 500 [153]"LOAD":[129] X[178]1 [164] 1000:[130]
  32. 510 [153]"OPEN       (null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)
  33. 520 PRINT"      [206]  [206][183][183][183][183][183][183][183][183][183][208][183][207][183][183][183][183][183][183][183][183][183][205][160] [205]
  34. 530 [153]"     (null)  (null)        +USRUSRUSRUSRUSRSGN        (null)  (null)
  35. 540 PRINT"    [206]  [206]          [183][183][183][183][183]          [205]  [205]
  36. 550 [153]"   +  (null)                           (null)  SGN
  37. 560 PRINT"   [170] [206]                             [205] [180]
  38. 570 [153]"   +(null)                               (null)SGN
  39. 580 PRINT"   [170]                                 [180]
  40. 590 [153]"   +                                 SGN
  41. 600 PRINT"   [170]                                 [180]
  42. 610 [153]"   +                                 SGN
  43. 620 PRINT"   [170]                                 [180]
  44. 630 [153]"   +                                 SGN
  45. 640 PRINT"   [170] [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205] [180]
  46. 650 [153]"   +(null)     (null)USRUSRUSRUSR(null)                    (null)SGN
  47. 660 PRINT"    [183][183][183][183][183][206][205][183][183][183][183][206][205][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  48. 670 [153]"         SGN (null)  (null) +              TIMEROPEN   "
  49. 675 [153]"            (null)RIGHT$               (null)USRUSRUSRUSRUSRUSRUSR(null) "
  50. 680 [153]"                             SGN       +
  51. 685 PRINT"                             [183][183][183][183][183][183][183][183][183]
  52. 690 [153]"   TO START MOVING, PRESS RETURN KEY"
  53. 692 [161]A$:[139] A$[178]"" [137] 692
  54. 695 [139] A$[179][177][199](13) [137] 692
  55. 697 [153]"ON  TO APPLY BRAKES, USE THE SPACE BAR   "
  56. 698 [141] 5000
  57. 700 [129] W[178]1 [164] (Z[172]2)
  58. 702 [153]""
  59. 705 [153][163]93)"(null)(null)";:[153][163]26)"(null)(null)"
  60. 710 [153][163]12)"(null)(null)";:[153][163]26)" (null)(null)"
  61. 715 [153][163]11)"(null)(null)               (null)(null)"
  62. 720 [153][163]10)" USR                 USR    "
  63. 730 [153][163]8)" AND                     AND "
  64. 740 [153][163]8)"(null)(null)                     (null)(null)"
  65. 750 [153][163]7)"(null)(null)                       (null)(null)"
  66. 760 [153][163]6)"(null)(null)                         (null)(null)"
  67. 770 [153][163]6)"USR                           USR"
  68. 800 [153]""
  69. 802 [153][163]93)" USR";:[153][163]26)"USR "
  70. 805 [153][163]12)"AND ";:[153][163]26)"  AND"
  71. 810 [153][163]11)"(null)(null)               (null)(null)"
  72. 820 [153][163]10)"(null)(null)                 (null)(null)"
  73. 830 [153][163]9)"(null)(null)                   (null)(null)"
  74. 840 [153][163]8)" USR                     USR  "
  75. 850 [153][163]7)"AND                         AND"
  76. 860 [153][163]6)"(null)(null)                         (null)(null)"
  77. 870 [153][163]5)"(null)(null)                           (null)(null)"
  78. 880 [153][163]4)"(null)(null)                             (null)(null)"
  79. 890 [153][163]4)"USR                               USR"
  80. 900 [153]""
  81. 902 [153][163]93)"(null)(null)";:[153][163]26)"(null)(null)"
  82. 905 [153][163]12)"(null)(null)";:[153][163]26)" (null)(null)"
  83. 910 [153][163]11)" USR               USR   "
  84. 920 [153][163]10)"AND                   AND "
  85. 930 [153][163]9)"(null)(null)                   (null)(null)"
  86. 940 [153][163]8)"(null)(null)                     (null)(null)  "
  87. 950 [153][163]7)"(null)(null)                       (null)(null) "
  88. 960 [153][163]6)" USR                         USR  "
  89. 970 [153][163]5)"                               "
  90. 980 [153][163]4)"AND                               AND"
  91. 990 [153][163]4)"(null)                               (null)"
  92. 995 [130] W
  93. 2000 [153]""
  94. 2005 [153] [163]178)"SYSANDAND
  95. 2010 PRINT TAB(18)"[166][166]
  96. 2020 [153] [163]17)"SPC(SPC(SPC(SPC(
  97. 2030 PRINT TAB(17)"[166][166][166][166]
  98. 2040 [153] [163]17)"SPC(SPC(SPC(SPC(
  99. 2050 PRINT TAB(18)"[166][166]
  100. 2060 [153] [163]18)"SPC(SPC(
  101. 2070 PRINT TAB(18)"[166][166] "
  102. 2100 X=0
  103. 2110 PRINT TAB(231)""X
  104. 2120 GET A$
  105. 2130 IF A$=CHR$(32) GOTO 3000
  106. 2140 X=X+4        
  107. 2150 PRINT TAB(31)"[145]"X
  108. 2160 GOTO 2120
  109. 3000 FOR X=1 TO 1000:NEXT
  110. 3010 PRINT TAB(40)"    TO RESET, PRESS THE RETURN KEY   "
  111. 3020 GET A$:IF A$="" GOTO 3020
  112. 3030 IF A$<>CHR$(13) GOTO 3020
  113. 3040 GOTO 500
  114. 5000 Z=INT(RND(0)*15)+1
  115. 5010 IF Z<2 GOTO 5000               
  116. 5020 RETURN
  117. 9000 POKE 53280,7:POKE 53281,7:PRINT"[147]"
  118. 9001 FOR X=1 TO 1000:NEXT:POKE 646,6
  119. 9003 REM*                 LINE RIGHT *
  120. 9005 FOR X=1 TO 39
  121. 9010 PRINT"[191]";
  122. 9015 FOR Y=1 TO 10:NEXT Y
  123. 9020 NEXT
  124. 9028 REM*                  LINE DOWN *
  125. 9030 FOR X=1 TO 22
  126. 9040 PRINT TAB(40)"[157][157][191]"
  127. 9050 FOR Y=1 TO 10:NEXT Y
  128. 9060 NEXT X
  129. 9068 REM*                  LINE LEFT *
  130. 9070 FOR X=1 TO 39
  131. 9080 PRINT"[157][157][191]";
  132. 9090 FOR Y=1 TO 10:NEXT Y
  133. 9095 NEXT X
  134. 9096 PRINT"[157][191][157]";
  135. 9098 REM*                    LINE UP *
  136. 9100 FOR X=1 TO 21
  137. 9110 PRINT "[145][191][145]"
  138. 9120 FOR Y=1 TO 10: NEXT Y
  139. 9130 NEXT X
  140. 9140 FOR D =1 TO 350:NEXT
  141. 9160 PRINT TAB(204)"[191]";
  142. 9170 FOR X=1 TO 28
  143. 9175 PRINT "[191]";
  144. 9180 FOR Y=1 TO 10:NEXT Y
  145. 9190 NEXT X
  146. 9195 PRINT"[191]"
  147. 9200 PRINT TAB(33)"[191]"
  148. 9210 PRINT TAB(33)"[191]"
  149. 9220 PRINT TAB(33)"[191]"
  150. 9230 PRINT TAB(33)"[191]";
  151. 9240 FOR X=1 TO 30
  152. 9250 PRINT"[157][191][157]";
  153. 9255 FOR Y=1 TO 10: NEXT Y
  154. 9260 NEXT X
  155. 9270 FOR X=1 TO 3
  156. 9280 PRINT "[145][191][157]";
  157. 9290 FOR Y=1 TO 10:NEXT
  158. 9300 NEXT X
  159. 9305 FOR X=1 TO 350:NEXT
  160. 9310 PRINT TAB(46)" ANDING'S NOODLE PRESENTS"
  161. 9315 FOR X=1 TO 1000:NEXT
  162. 9320 PRINT TAB(252)" "
  163. 9325 DATA "R","E","A","C","T","I","O","N"," ","T","E","S","T"
  164. 9330 PRINT TAB(12)"*[157]";
  165. 9335 FOR J=1 TO 13
  166. 9340 FOR X=1 TO 10
  167. 9350 PRINT" *[157]";
  168. 9360 FOR Y=1 TO 4:NEXT Y
  169. 9370 NEXT X
  170. 9375 PRINT"[157]* [157]";
  171. 9380 FOR X=1 TO 9
  172. 9390 PRINT"[157][157]* [157]";
  173. 9400 FOR Y=1 TO 4:NEXT Y
  174. 9410 NEXT X
  175. 9415 READ A$
  176. 9416 PRINT"[157][145]";A$;:PRINT"";
  177. 9420 NEXT J
  178. 9425 FOR Y=1 TO 200:NEXT
  179. 9430 PRINT TAB(58)"*":FOR Y=1 TO 150:NEXT
  180. 9440 PRINT TAB(18)"*":FOR Y=1 TO 150:NEXT
  181. 9450 PRINT TAB(18)"*":FOR Y=1 TO 150:NEXT
  182. 9460 PRINT TAB(18)"*":FOR Y=1 TO 150:NEXT
  183. 9470 PRINT TAB(18)"*":FOR Y=1 TO 2000:NEXT
  184. 9480 RETURN
  185.